home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
pgm_ctrl
/
cuactrls
/
ccheck.frm
< prev
next >
Wrap
Text File
|
1995-05-22
|
6KB
|
169 lines
VERSION 2.00
Begin Form frmCheck
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "Check Button Demo"
ClientHeight = 2820
ClientLeft = 1170
ClientTop = 3330
ClientWidth = 5265
ClipControls = 0 'False
Height = 3225
Left = 1110
LinkTopic = "Form1"
ScaleHeight = 2820
ScaleWidth = 5265
Top = 2985
Width = 5385
Begin CUACommand cmdOK
Cancel = -1 'True
Caption = "OK"
Default = -1 'True
Height = 345
Left = 3825
StandardButton = 1 'OK
TabIndex = 1
Top = 135
Width = 1260
End
Begin CUAFrame grp1
BackColor = &H00C0C0C0&
BorderStyle = 3 'Inset
Caption = "&Optional Controls"
ForeColor = &H00000000&
Height = 1365
Left = 165
TabIndex = 2
Top = 1290
Width = 3525
Begin CUACheck chkControls
BackColor = &H00C0C0C0&
Caption = "Caption"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 0
Left = 135
TabIndex = 3
Top = 360
Value = 1 'Checked
Width = 1500
End
Begin CUACheck chkControls
BackColor = &H00C0C0C0&
Caption = "Min Button"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 1
Left = 135
TabIndex = 5
TabStop = 0 'False
Top = 675
Width = 1500
End
Begin CUACheck chkControls
BackColor = &H00C0C0C0&
Caption = "Max Button"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 2
Left = 135
TabIndex = 7
TabStop = 0 'False
Top = 990
Width = 1500
End
Begin CUACheck chkControls
BackColor = &H00C0C0C0&
Caption = "System Menu"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 3
Left = 1665
TabIndex = 4
TabStop = 0 'False
Top = 360
Value = 1 'Checked
Width = 1725
End
Begin CUACheck chkControls
BackColor = &H00C0C0C0&
Caption = "Vert. Scroll Bar"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 4
Left = 1665
TabIndex = 6
TabStop = 0 'False
Top = 675
Value = 2 'Grayed
Width = 1725
End
Begin CUACheck chkControls
BackColor = &H00C0C0C0&
Caption = "Horz. Scroll Bar"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 5
Left = 1665
TabIndex = 8
TabStop = 0 'False
Top = 990
Width = 1725
End
End
Begin CUALabel lbl
BackColor = &H00C0C0C0&
BackStyle = 1 'Opaque
Caption = "Check Buttons in CUA/Controls have the same functionality as the standard component. They can also be bound to a data base, and support 3D-effects."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000080&
Height = 1035
Index = 6
Left = 165
TabIndex = 0
Top = 165
Width = 3525
End
End
Option Explicit
Sub cmdOK_Click ()
Unload Me
End Sub